<%

Function apostas_emular_usuarios()

		id_rodada = rodada_get_atual()
		
		apostas_pontuacao_limpar id_rodada
		
		DIM placares(100,3), apostas(100,2), total, total_, i, j
		DIM um, dois, tres, pontos_final, rodadas_nao_apostadas, rodadas_apostadas, jogos_apostados
		
		DIM data_rodada
			
		data_rodada=rodada_data()
		
		total = rodada_get_jogos(id_rodada, placares)
		
		str = "Select id, ativo FROM usuarios where status=1"
    	Set rsUsu = conexao_geral.Execute(str)
	
		DIM id_usuario, usu_ativo
		
		DIM rodada_usuarios_ativos, rodada_usuarios_apostaram
		
		rodada_usuarios_ativos=0
		rodada_usuarios_apostaram=0
		
		Do while not rsUsu.eof
		
			um = 0
			dois=0
			tres=0
			pontos_final=0
		
			id_usuario = rsUsu("id")
			usu_ativo = int(rsUsu("ativo"))

			total_ = apostas_usuario_rodada(id_rodada, apostas, id_usuario)
			
			jogos_apostados=0
			rodadas_nao_apostadas = 0
			rodadas_apostadas = 0
			if total_=0 then 
				rodadas_nao_apostadas = 1
			Else
				rodadas_apostadas = 1
			End If
			
			for i=0 to total-1

				if placares(i,0)=3 then

					if total_>j then

						if placares(i,3)=apostas(j, 0) then

							pontos =  apostas_pontuacao(placares(i,1), placares(i,2), apostas(j, 1), apostas(j, 2), placares(i,3), id_rodada, id_usuario)
				
							pontos_final = pontos_final + pontos
							jogos_apostados = jogos_apostados + 1
							if pontos>=1 then um = um + 1
							if pontos>=2 then dois=dois+1
							if pontos>=3 then tres=tres+1

							j=j+1

						End If

					End If
					
				Else
				
					j=j+1
		
				End If
		
			next
			
			
			If jogos_apostados>0 then
			
				inserir_aposta_pontuacao id_usuario, id_rodada, pontos_final
				ranking_wo_limpar id_usuario
				
				rodada_usuarios_ativos=rodada_usuarios_ativos+1
				rodada_usuarios_apostaram=rodada_usuarios_apostaram+1
				
				If usu_ativo = 0 then
					 usuario_alterar_ativo id_usuario
					 usu_ativo = 1 
				End If
			else
				If usu_ativo = 1 then
					rodada_usuarios_ativos=rodada_usuarios_ativos+1
					ranking_wo id_usuario
				End If
			End If 
			
			If usu_ativo = 1 then
				DIM max_pontuacao
				max_pontuacao = apostas_get_pontuacao_rodada(id_rodada, id_usuario)
				apostas_ranking_descarte id_usuario, id_rodada 
				apostas_ranking id_usuario, data_rodada, rodadas_apostadas, rodadas_nao_apostadas, jogos_apostados, max_pontuacao, um, dois, tres
			ENd If
		
		rsUsu.MoveNext
		Loop
		
		ranking_atualizar_posicao conexao_geral, "ranking", "id_usuario", "acertos+acertos_exatos+acertos_bonus desc, acertos_bonus desc, acertos_exatos desc, max_pontuacao desc, id_usuario asc", "AND mes='"&data_rodada&"'"
		ranking_atualizar_posicao conexao_geral, "ranking", "id_usuario", "acertos+acertos_exatos+acertos_bonus desc, acertos_bonus desc, acertos_exatos desc, max_pontuacao desc, id_usuario asc", "AND mes=''"
		ranking_atualizar_posicao conexao_geral, "ranking_descarte", "id_usuario", "pontos desc, id_usuario asc", ""
		
		'atualizar estatisticas roadada
		DIM condicao
		condicao = "id="&id_rodada
		sql_edicao conexao_geral, "rodadas", "usuarios_ativos", rodada_usuarios_ativos, condicao
		sql_edicao conexao_geral, "rodadas", "usuarios_apostaram", rodada_usuarios_apostaram, condicao
		
		apostas_emular_usuarios = 1

End Function

%>
